home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / arrays.arc / ONE-D.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-09-17  |  1.2 KB  |  59 lines
  1. defint a-z
  2. dim  cities$(100)
  3.  
  4. '*** Main program is here
  5.  
  6. gosub readincities
  7. gosub printoutcities
  8. end
  9.  
  10.  
  11. '****************************************************************************
  12. ' READINCITIES - get in all the data all at once
  13. readincities:
  14.         restore info
  15.         read  n.cities
  16.         for  i=1  to  n.cities
  17.                 read  cities$(i)
  18.         next
  19.         return
  20. '****************************************************************************
  21.  
  22. '****************************************************************************
  23. ' PRINTOUTCITIES - then print the array
  24. printoutcities:
  25.         locate 1,1
  26.         color 14
  27.         print "CITY"
  28.         color 7
  29.         for  i=1  to  n.cities
  30.                 print cities$(i)
  31.         next
  32.         return
  33. '****************************************************************************
  34.  
  35. info:
  36. data 22
  37. data Acapulco
  38. data Athens
  39. data Beijing
  40. data Bonn
  41. data Cairo
  42. data Copenhagen
  43. data Dublin
  44. data Geneva
  45. data Helsinki
  46. data Jerusalem
  47. data Lima
  48. data Madrid
  49. data Merida
  50. data Monterrey
  51. data Moscow
  52. data Nice
  53. data Paris
  54. data Rome
  55. data Singapore
  56. data Taipei
  57. data Toronto
  58. data Vienna
  59.